home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN1.LZH / HELP.FOR < prev    next >
Text File  |  1988-02-08  |  2KB  |  84 lines
  1.       SUBROUTINE HELP ( LIBR, STRING, ERROR )
  2. C*
  3. C*                  *******************************
  4. C*                  *******************************
  5. C*                  **                           **
  6. C*                  **          HELP             **
  7. C*                  **                           **
  8. C*                  *******************************
  9. C*                  *******************************
  10. C*
  11. C*     SUBPROGRAM :
  12. C*          HELP
  13. C*
  14. C*     AUTHOR :
  15. C*          ART RAGOSTA
  16. C*          MS 207-5
  17. C*          AMES RESEARCH CENTER
  18. C*          MOFFETT FIELD, CA  94035
  19. C*          (415) 694-5578
  20. C*
  21. C*     PURPOSE :
  22. C*          TO INTERFACE WITH A VMS-FORMAT HELP FILE
  23. C*          FROM WITHIN A FORTRAN PROGRAM.
  24. C*
  25. C*     METHODOLOGY :
  26. C*          CALL THE SYSTEM-SPECIFIC ROUTINE, LBR$OUTPUT_HELP
  27. C*
  28. C*     INPUT ARGUMENTS :
  29. C*          LIBR  - THE NAME OF THE LIBRARY HELP FILE TO BE SEARCHED.
  30. C*          STRING - THE PARAMETER TO THE HELP COMMAND.
  31. C*
  32. C*     OUTPUT ARGUMENTS :
  33. C*          ERROR - A BOOLEAN FLAG WHISH IS SET TRUE IF THERE WAS TROUBLE
  34. C*                   COMPLETING THE REQUEST.
  35. C*
  36. C*     INTERNAL WORK AREAS :
  37. C*          NONE
  38. C*
  39. C*     COMMON BLOCKS :
  40. C*          NONE
  41. C*
  42. C*     FILE REFERENCES :
  43. C*          NONE
  44. C*
  45. C*     DATA BASE ACCESS :
  46. C*          NONE
  47. C*
  48. C*     SUBPROGRAM REFERENCES :
  49. C*          LBR$OUTPUT_HELP, LIB$PUT_OUTPUT, LIB$GET_OUTPUT
  50. C*
  51. C*     ERROR PROCESSING :
  52. C*          CHECK THE STATUS RETURNED BY LBR$OUTPUT_HELP
  53. C*
  54. C*     TRANSPORTABILITY LIMITATIONS :
  55. C*          USES VMS-SPECIFIC ROUTINES.
  56. C*
  57. C*     ASSUMPTIONS AND RESTRICTIONS :
  58. C*          NONE
  59. C*
  60. C*     LANGUAGE AND COMPILER :
  61. C*          ANSI FORTRAN 77
  62. C*
  63. C*     VERSION AND DATE :
  64. C*          VERSION I.0     12-SEP-84
  65. C*
  66. C*     CHANGE HISTORY :
  67. C*          12-SEP-84    INITIAL VERSION
  68. C*
  69. C***********************************************************************
  70. C*
  71.       EXTERNAL LIB$PUT_OUTPUT, LIB$GET_INPUT
  72.       CHARACTER *(*) STRING, LIBR
  73.       LOGICAL ERROR
  74.       EXTERNAL SS$_NORMAL
  75. C
  76.       ISTAT = LBR$OUTPUT_HELP(LIB$PUT_OUTPUT,,STRING,LIBR,,
  77.      $         LIB$GET_INPUT)
  78.       ERROR = ISTAT .NE. %LOC(SS$_NORMAL)
  79.       RETURN
  80.       END
  81. C
  82. C---END HELP
  83. C
  84.